#!/usr/bin/perl -w

while(<<>>) {
    if(/[fF]red/){
        print ;
    }
}
